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To: 

From: 
Subj ect : 
Date: 



all interested 
Walter *la I 1 ac h 

FORTRAN S-Language tRevised) 
7/Nov/7/ Memo No. 3p7 



Abst ract : 

This memo revises Memo Ml* the FuRTRAN O-Language oPec i f 1 c at i on . 
A Floating Point Data Error exception is introduced to capture 
invalid or unnormalized floating point data. 



1 FORTRAN S -Language 

In the following description of the SPRINT FUR'lPAN dialect? 
type definitions? instructions definitions? and most instructions 
are written in OPL. 



1.1 Operand Types for the FoRIRAN S-Lanyuaae 

Instructions are of two oasic types: arithmetic and control. 
The arithmetic instructions define operations on one? two or th p ee 
operands ranging from simple assignment (move) to CuMpLtX aritn- 
met i c and transcendental functions. I he control instructions each 
define some decision and branch. Tne decision may be based on a 
comparison or an arithmetic result? or it may be unc ona i t i ona 1 
(GOTO or LALL). The oranch may be relative to tne 1-stream or 
absolute (relative to the start of some procedure object). 



1.1.1 Relative branches 



A relative branch instruction specifies as 
"relative offset" syllable. This syllable is a 
denoting a signed? integral? nioble granular offset 
current PL ti.e.? tne address of the instruction 
relative branch. Thejs,-bit relative offset syllable 
by tour to obtain a bit-granular offset and then sign-extended 
3 d bits. This value is then added IP's complement addition! to 
offset portion of the current PC. interpretation resumes at 
new I-stream location. 



an operand a 
k-bi t literal 
relative to the 
containing the 
is multiplied 
to 
the 
this 



Note that 
since only the 



a relative branch is always intra-Procedure Object? 
offset of the PC is modified. 




Memo no. 3b7 
7 / nov / n 

pa d e 2 



1.1.2 Offset branch 

An offset branch is an intra-Procedure Object branch specified 
relative to the start of the current Procedure Object. An offset 
name operand is evaluated (like any other named, yielding an 
integral offset (signed or unsigned, as specified in the associated 
Name lable entry). This offset value represents a bit-granular 
offset which is added to the offset portion of the current Pro- 
cedure Object Pointer (PQPTk). The result of this addition repla- 
ces the PC . 



1.1.3 Data Representations 

The FORTpAivj language defines two classes of storaae which, dy 
definition, may never overlap in a "standard conforming" program. 

All addresses are Dit granular, locating containerized data. 
All lengths are bit lengths. In general, operand lengths are 
specified in the length field of the operand's hiTt. j.n some cases, 
however, the oocoae may imply a length. Data representation is 
always implied in the opcode. i'mo type checking is nerformedy tne 
type field of the NTE is ignored. 



1.1. 3.1 ChAKACTtP Data 

The first storage class is that of a CnApACTtP machine. this 
machine is implemented as an o-oit byte containerized machine, 
where bytes reside at addresses divisihie dy 0 . The standard 
insures that CHARACTER data may not oe EyUi VALcNuEu to 
non-character data. 

in most cases, the length of a character string is known at 
compile time. when the lengtn may vary (.character parameters), 
length may oe specified "as a name" in the Name lade. In these 
cases, length should be passed as an INfF.uEK parameter. 



1.1. 3. 2 Classical FORTRAN Data 

The second storage class is that of a "classical" FuRlRAN 
machine, a containerized storage machine with the exoecteu FuRlRAN 
operations. fte implement this class as a lo-oit wore machine 
(addressed in a bit-granular fashion) and ut i 1 i ze data representa- 
tions compatible with IBM 3b0 and ECLIPSE data types. There are no 
restrictions concerning word alignment other than the policy that 
all containers will begin on a bit address divisible by lo. 
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1.1. 3. 2.1 INTeGeR 

All integers are 2's complement ana occupy one 32-bit storage 
container. All INTEGER operations are e's complement operations. 
Overflows are detected on completion of an operation that overflows 
the container and prior to storing the result. 

INTEGER data is addressed at its left-most (i.e. low-address) 
end/ right- justified ano sign-filled on the left/ truncated on the 
left (see discussion of "Execution Exceptions" below). 



TYPE integer IS Rj.T(32) TaKeN Ad 
-(2**51). .( (e**3i)-1 ); 



1.1. 3. 2. 2 INTtGtR*? 

i.NTEbER*2 is a half-size 2's complement integer. It differs 
from INTEuEK only in length. 

1NTEGER*2 data is addressed at trie left-most (i.e./ low 
address) end/ r i ght -j ust i f i ed and sign-filled on the left, trun- 
cated on the left (see discussion of exceptions). 



TYPt integer*2 IS BlTtlb) TAKtM Ad 
-(2**15). .( (2**15) -1 )/ 



1.1. 3. 2. 3 REAL 

All sinole precision PEAl values occupy a sinale 52-bit 
storage container and are " i B M format" binary floating point (i.e./ 
an algebraic sign bit followed by a 7-bit, excess-64 hexadecimal 
exponent, followed by a 24-bit hexadecimal normalized mantissa). 

REAL data is addressed at the left-most ( I ow-adaress ) end, 
left -justified ana zero-filled on the right, truncated on the 
right. 
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TYPt real Is all (32) I AREN AS RtCuRD 

sign :(u=positive, l=neyativej; 

exponent :BiT(7) ( A K E N AS 0..i 2/? 

mantissa :RIT(2 a) TaK£N A5 u . . ( 2* * 24 ) - 1 ; 
END RlCuRU; 



+ + ---- + 

I s I exponent I 
1(1)! (7) I 



........................ -- + 

mantissa I 

(2a) I 



1.1. 3. 2. A CuMPLtX 

LOmPLEx data is represented in storage as an ordered pair of 
Real, values, addressed as a unit oy addressing the low-address end 
of the low-adoress KEAL value. The two values represent the real 
part and the imaginary part of a LOmPlEx value, respectively. 

The two values must oe fetched separately ana processed as two 
different REAL values. tach part is fetched left-justified, 
zero-filled, truncated on the right. 







-- + 




. - - - - + - - 




* — + 


s 1 exp 1 


m a n t i s s a 


1 s 1 


exp 1 


mantissa 


! 


(1)1 ( 7 ) l 


(24j 


1(1)1 


(/) 1 


(24) 


1 




part 




• • 


* — - — - + — ■ 

, . . I MAp 


part ••••••• . 


. . 1 



TYPc. complex IS RtCuRU 
real_part:rea1 ? 
i mag_part : rea I f 

end record; 



1.1. 3. 2. 5 DUUbLt PRcCISIOn 

double precision data occupies two 32-bit storage containers. 
No address alignment restrictions are enforced; any 52-bit con- 
tainer may be the start of a douole Precision value. The oata 
representation is also "IbM format" (sign bit followed by a 7-oit, 
excess-bA hexadecimal exponent, followed by a 5o-Dit hexadecimal 
normalized mantissa). 
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Double precision values are addressed at tne low- sduress eno» 
left -justified, zero-filled on the riyht, truncated on the right. 



+ + + 

I s I exp I 
I (1 ) I (7) I 



mantissa 

(So) 



+ 

I 

l 

t 



TYPE uoubl e_prec i si on Id a I i C o J rAr\EN AS RcXuRu 
sign : (. 0 = pos i t i ve , l=negative) 

exponent : oT T ( / ) TaKlN Ad 0 . . I d.7 , 

mantissa ipIFCbfe) I A n E n rtS 
0 . . ( 2**b6 ) - 1 ; 

end RtCuRD; 



Type DOUdLE PRtCiSION differs from RpAL in lengtn only. 



1.1. 3. 2. 6 COMPLEX DUUbLE 

lOMPlEx DOUBLE data is represented as an ordered pair of 
DOUoLE PRECISION values, addressed from tne low-address end of the 
low-address value. The values represent the real part ana the 
imaginary part of a COMPLEX value, respectively. Tney are fetched 
separately, left-justified, zero-filled on the right, anj treated 
as two DOuRlE PREcIblUN values. 



type 


compl ex_doubl e Id 


RECORD 






r e a 1 _p a r t 


; doub 1 e 


precision^ 


1 . 1 .3.2.7 LUGICAL 


i rnagi nary_part 

END record; 


: aoub 1 e 


prec i sion; 


LOGICAL data is 


represented as 


a 32-bit 


cental neri zea 



vector, of which only the first (low-address) bit is significant. 
Tne rest of the container is ignored. The POrTRAn standard re- 
quires that LuGICAl's be represented in this way. 

LOGICAL data is addressed at the low-address end, 
right- justified and Sion-filled, truncated on the right. 
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1.1. 3. 3 General Notes on Data Types 

Length and fetch mode fields dictate alignment ana padoing 
upon data fetch and truncation upon data store. Significant cits 
of a floating point (KEaL or DOUBLE PhELIoluNj value lost through 
truncation are ignored. Significant pits of an I^TtGtR value lost 
due to truncation are considered a fixed point overflow and must 
generate an exception trap. 

Arithmetic instructions are typpeo only? and imply no 
containerization. Uperana length is specified oy the operand's 
associated hlTt. The NTt also controls fetching and storing (i.e., 
dictates justification, fill, and truncation). py policy, a 
compiler will never generate an uncontainerized instruction with 
different operand sizes. Such an instruction is undefined within 
the F U P 1 R A N machine. 

Certain instructions do denote containerization. These 
instructions implement untyped bit moves, conversions between data 
representations, and/or con t a i ne r i z a t i on changes. The opcodes of 
such instructions are unique. 



1.2 Execution Exceptions 

The FOKTkAN machine defines a number of execution exceptions. 
When an exception arises, several scenarios are Possiole. The 
first is to trap immediately with an appropriate error indication. 
The second is to totally ignore the exception and store a possibly 
incorrect result. A third scenario is to suppress the exception? 
i.e., store some approximate result and continue processing. In 
any case, a record of the exception is made in virtual machine 
state which may be tested (and cleared) by the program at a later 
time. 



The following is a list of execution exceptions: 



0 -- txponent Overflow 

The result of a F£Al or DOUbLt PRECISION computation has 
exceeded the range representable by the machine. If the 
exception is ignored, the exponent wraps around, so the 
resulting exponent is the the low order / bits of the 
Proper result exponent. if the exception is suppressed, a 
result of infinity (i.e., the largest value representable) 
is stored with the proper algebraic sign. 
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txponent Underflow 

The result of a REAl or DuUaLt PRcCiSiOiNj computation is too 
small to be represented by the machine. If the exception 
is ignored, tne exponent wraps arouna? so the resulting 
exponent is the low order 1 bits of the proper result 
exponent. if the exception is suppressed, a resuit of 
1/infinity ( i . e . , the smallest nonzero value representable 
by the machine) is stored with the proper algebraic sign. 



Hoatina Point Divide by Zero 

A RcAL or DOUBLE PPtCiSiON division by zero has oeen 
attempted. This exception may not be ignored. if it is 
suppressea, a result of infinity (i.e., the largest value 
representable by the machine in floating point) is stored 
with the proper algebraic si an. 



Float ina Point Data Error 

The value recieveo as a floating point operand is either 
not Properly normalizeu or is unnorma I i zabl e (e.g., a 
nonzero exponent and zero mantissa). If the exception is 
ignored, the value is normalized prior to attempting the 
operation (or a true zero is inserted! . i he exception may 
not be suppressed. 



Illegal uperanu Value 

The argument of an operation is out of range? for example, 
ExP(x) where raising e to tne x would result in an exponent 
overflow. if the exception is ignored, the operation is 
attempted with the specified value. Any subsequent excep- 
tions are handled as they occur. This exception may not oe 
suppressed. 



Protection or Access Violation 

No response other than trap is possible. 
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6 -- Hxed Point Uverflow 

A fixed point (INTEGER) result contains more sionificant 
bits than can fit in the specified container. Significant 
data bits (i.e., bits other than copies of tne sign pit) 
must oe truncated from the left end of the result. 

The result is not stored. 

This exception may not be ignored or suppresseu. 



7 -- INTEGER Conversion Error 

The result of a FIX operation cannot fit in a id bit 
InTeGeR container. No response other than trap is 
possi bl e. 



8 -- Fixed Point divide by Zero 

Integer divide by zero has oeen attempted. This exception 
may not be ignored or suppressed. 



9 -- illegal Intra-Procedure Jbject Aodress 

An absolute name syllable resolved to an address which is 
not within the current procedure ooject. This exceotion 
may not be ignored or suppressed. 



10 -- Si ?e Error 

The source oDerand in an assignment operation is too large 
to tit in the specified sink operand. If this exception is 
ignored, the source is truncated to fit in the sink con- 
tainer Con the right for floating point, on the left for 
INTEGER and CHARAQTtR) . 



1.3 Virtual Machines for FORTRAN b-uanguage 

The FORTRAN S-Lanouage standard defines two disjoint classes 
ot storage: CHAkACTER and classical. For the purpose of manipula- 
ting these data classes, we define two slightly overlapping virtual 
FORTRAN machines. The untyped MOVE instruction is shared by both 
virtual machines. 
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1.3.1 C H A R A C T t R Machine 



CHARACTE R IF Operations 



Rioves are accomplished usinq the untyped move instruction. 



* if_=string <name-a> <name-b> <relative oftset> 

character strings "a" and "b" are compareo and, if equal, the 
relative oranch is taken. Otherwise, the next sequential instruc- 
tion is executed. 



Except ions: 



* if_>string <name-a> <name-b> <relative offset> 

character strings "a" and "b" are compared and, if string "a" is 
greater than strinq "b," the relative branch is taken. .iote that 
the bytes are compared as unsianed* 8-bit values. 



Exceptions: 5 



* if_>=strinq <name-a> <name-b> <relative offset> 

character strings "a" and "o" are compareo anq, if string "a" is 
greater than or equal to string "b," the relative branch is taxen. 
Otherwise, the next sequential instruction is executed. 
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Fxceot i ons : S 



Notes: 

Strings are addressed from low-adaress eno of left-most byte. 

Strings are compared as unsigned, 6-oit values, space filled 
on the right if necessary to make the comparand strinas equal in 
length. 



Substring Operation 

The substring operation is realized by treating the string as a 
character array, i.e. using the indexing facility to locate the 
start of the suostring and using the untyped move to move the 
desired characters. 



Concatenate Operation 

The concatenate operation is simply an untyped move, couplea to an 
integer arithmetic operation of the "namea" length if necessary. 
The operation on the length is included as a separate instruction 
in the I-stream. 
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* move_spac <name-a> 

ASCII spaces are moved to the string operand "a." The number of 
spaces to be stored is determined by the lenqth of "a." if <length 
of "a"> mod 8 is not zero* a size error exists# and the last 
character stored is truncated to fit in the source strina. 



I Exceptions: 5# 10 



1.3.2 Classical FORTRAN M d cnine 



1.3. 2.1 Unary Operations 



* M uV <name-b> cname-a* 

move value of "b" to variable "a." This is an untyped move. It is 
assumed that this instruction is usea to move values between 
identical containers. 



Exceptions: S# 10 (containers not identical! 



* Mu'/ REAL <name-b> <name-a> 

Floating point value "b" is moved to floating point variable "a." 
If necessary# "b" is zero extended on the right or truncateu on the 
right to fit properly in "a's" container. 



Exceptions 



3, b 
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* MuVCMpLX <name-b> <name-a> 

Both components of uHnPlEX value "b" are zero extenoea or truncated 
to fit the containerization of COMPLEX variable "a." Each compon- 
ent replaces the corresponding component of "a". 



I Exceptions: 3fb 

The above instructions implement conversions between RoAl and 
CuMRLtX containerizations. 



* IPIX <name-a> <name-i> 

IEIa converts RcAl or DuUbLt PRtCi.Si.ON value "a" to INiEuEn (or 
iNTtGtR*?)? the result replaces INTEGER variable "i." 



I Exceptions: 3, 7 

This instruction implements a REAL to I w fEbFR conversion. The 
source operand may be RtA|_ or DuUbLt PRECISION; the sin* operand 
may be INTEGER or Ii\iTtGER*2. 



* FlOmT <name-i> <name-a> 

iNTtGtR or i.NTFGER*2 value "i" is converted to REAL or UOuBLE 
PRECISION. Trie result replaces REAl or DuUbLt PrECTSIuN variable 



Exceptions: 5 

l h i s instruction implements the conversion from ImTtGtR or 
INTEGER*? to REAL or 0 0 U 3 L E PRECISION. Lengths are implied by the 
operands' NTE's. 
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1.3.?. 2 Pointer Instructions 

Ihe following instructions build and convert pointers. The 
FuPTRAN standard does not define pointers/ however/ tney are still 
neeaed to address parameters and resolve external calls. 



* 



PJP <name-q> <name-p> 



The pointer value "q" is moved to pointer variable "q." Pointer 
formats may be changed tor efficiency. 



F xceot ions: 5 



* A DDK <name-a> <name-o> 

The logical address of "a" is moved to pointer "p". Ihe format of 
the stored pointer is chosen for efficiency. 



Exceptions: 5 

iwo pointer formats are useful within the FORTRAN machine: the 
UiD pointer and the se 1 f-absol ut e pointer. Since self-absolute 
pointers are more efficient/ they are used whenever possible. 

A pointer is always converted to internal format upon fetch. 
If the source Pointer was a self-absolute pointer/ the internal U1D 
of the pointer's logical address is inserted as the fetched 
pointer's internal UlD. If the internal UiD of this pointer is the 
same as that of the destination variable's logical address/ the 
pointer is stored as a se 1 f -abso 1 u t e pointer. Otherwise/ the 
internal UlU must be converted to a real UID and the pointer stored 
as a full UiD pointer. 

In pushing parameter pointers/ the call instruction builds 
self-absolute pointers whenever the parameter resides in the stack 
object twnen the parameter's logical address reflects the UiD of 
tne stack object/ in whicn the parameter pointer will reside). 
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1.3. 2. 3 Data Conversion Instructions 



* NtG <name-b> <name-a> 

Compute 0.00 minus REAL or DOUBLE PRECISION value "o", tne 
replaces REAL or DOUBLE PRECISION variaole "a". 

Exceptions: 3, b 



* INEG <name-j> <name-i> 

Compute the 2's complement of InTLGER or InTEGER* 2 variable 
the result replaces IivTtGER or INVEgEk* 2 variable "i." 



Exceptions: 5, o 



* AdS <name-b> <name-a> 

Compute tne aosolute value of RtAL or DuUdLt PRECISION value 
the result replacing REAL or DOUBLE PRECISION variaole "a." 



resu i t 



h : it 

J 9 



"b, " 



I 



Exceptions 



3 r b 
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* IaBo <name-j : > <name-i> 

Compute the aosolute value of iNTEGtR or IN(EbEK*2 value "j »" the 
result replaces iNTtGtR or II\irEbEr<*2 variable "i." 

Except ions: 5 



1.3. 2. 4 AbSlGiMMtNl Instructions 

In the following instructions/ "real" means either kEaL or 
DOUBLE PRECISION? "integer" means Ii\iTtGtR or INTEuER*2. oy Policy/ 
no compiler will generate an instruction with differing operand 
lengths. Such an instruction is undefined. 



1.3. 2. 4.1 Two Address Real 



* A D D 2 <name-d> <name-h> 

Add the real values of "a" and " b , " the result replacing "a." 

Exceptions: 0/ 1/ 3/ 5 



* SUB2 <name~a> <name-b> 

Subtract the real values "a" and "b" (a minus b)/ tne result 
replacing "a." 

Exceptions: 0, 1/ 3/ b 
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* M u L e! <name*a> <narne-b> 

multiply real values "a" ana " b " (a times b ) , the result 
" a . " 

Exceptions: 0, l, 3, b 



* Di .M2. <name-a> <name-b> 

DIVc: aivides real value "a" by real value "Dr" the result 

II ~ »* 

o • 

Exceptions: 0, 1 , ?, 5, 5 

1.3. 2. 4.2 Two Address Integer 



* I A D L> 2 < n a m e - i > <name-j> 

Add inteoer values "i" and "j% the result replacing "i" 

Exceptions: 5, b 



rep lacing 



replacing 
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* 1 5 U b 2 < n a m e - i > <name-j> 

Subtract integer value "j" from "i", the result replacinq "l". 

Except i ons : S, t> 



* IMUL2 <name-i> <name~j> 

Multiply integer values "i" and "j"# the result replacing "l" 

Exceptions: 5, o 



* Iulv2 <name-i> <name-j> 

Divide integer value "i" oy inteaer value "j", result reolacino "i" 

Exceptions: 5, br R 

1.3. 2. 4. 3 Two Aadress LuGICaL 



* NUT <name-b> <name - a> 

logical complement of bit string value "b" replaces bit string 
variaole "a" 
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Except ions: 

1.3. 2. 4. 4 Three Address Real 



* AgDi <name-D> <name-c> <name-a> 

add real values of "b" ana "c% result replacing real variaole "a" 
I Exceptions: A, 1 , 3, 5 



* SUBi <name-b> <name-c> <name-a> 

subtract real values of " d " and "c"» result replacina real variable 

If ^ II 
O 

I Exceptions: 0, l, 3, b 



* MuLi <name"D> <name-c> <name-a> 

multiply real values of "b" and "c"* result replacing real variable 



I 



Exceptions 



0, 1 , 3 , b 
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* n i.V3 <name-b> <name-c> <name-a> 

divide real value of "b" oy "c", result replacing "a" 



Exceotions: 0, i, 2, i, 5 



1.3. 2. 4. 5 Three Address Complex 

In tne following instructions^ each name operand refers to a 
pair of real or double precision values reoresenting complex 
(either complex or complex double! values. 



* CADD3 <name-b> <name-c> < n a m e - a > 

Complex values "b" ana "c" are added, real part to real Part, 
imaginary mart to imaginary part, the result replacing complex 
variable "a" 



Except ions: 0, 1 , 3, 5 



* CSUd 3 <name-b> <name-c> < n a m e - a > 

Complex values "b" anu "c" are subtracted ("c" from "o"), real part 
from real part, imaginary Part from imaginary part, tne result 
replacing complex variable "a" 



Except i ons 



0, l, 3, b 
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* 



CMUL3 <name-h> 



<name-c> <name-a> 



Complex values "b" and "c" are multiplied* the result replacing 
complex variable "a". 



Except i ons: 0, 1 * 3/ b 



Mote: Complex mu 1 1 i d i i cat i on proceeds as follows; 

"b" = r + js " c " = t + j u 
b*c = ( r + jsj * (t + ju) 

= ( r * t t- r*j uj + ( j s * t + js*ju) 

= rt-su + j * ( r u + st) 

wnere REAL (b) = r , i^AG (d) -si kFaL Cc) =t iMAp (.cj =u 



* CDIV3 <name-b> <name-c> <name-a> 

Complex values "b" and "c" are divided according to the rules for 
complex arithmetic* the result replaces complex variable "a". 



Exceptions: 0, 1, 2, p, S 



Note: ihe following is the definition of complex division: 

given the operation a = b / c for a* o* and c 
compl ex var i abl es* 

REAL t a ) = (ReAL(d)*ReAl(c) + lMAb(D)*Ii v iAo(c)J 
/ ( (KEaL(c))** 2 + llMAli(c))**? ) 

iMAb(a) = ( J.MAG ( b ) *KE AL ( c ) - kEaL tb) *J,MAG tc) ) 

/ C (HEAL (c ) ) **d + l IMAG (c ) ) **? ) 
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1.3. 2. 4. 6 Three Aodress Integer 



* IADU3 <name-j> <name'K> <name-i> 



* ISUB3 



* IMUL3 

Add, subtract, or multiply integer values "j " and (j+k, j-k, or 

j *k ) , the result replacing integer variable "i". 

Exceptions: S, b 



* IM0u3 

Divide integer values "j" by "k"; the remainder of this division 
replaces integer variable "i". 

Exceptions: S, t>, 8 



Memo no. Id.1 
7/NOV//7 
page 2d. 



* I L) I V 3 

divide integer variables "j" by "k", the quotient of this uivision 
replaces integer variable "i". 



Exceptions: 



5/ b, 8 



1.3. 2. 4.7 Three Address LQGICmL 



* AND3 <name-j> <name-k> <name-i> 



* Oh 3 



* XURi 

Logical "and"/ "or", or "exc 1 us i ve-or" bit string values of "j " end 
"k", result replacing bit string variable "i" 



Exceptions: 5 



1.3. 2. 5 IF Instructions 

Two-comparand instructions specify t h ree-ooerand syllables-- 
two names followed by a relative branch syllable. 

dne-compa r ana instructions specify two-operand sy I 1 ab I es—one 
name followed by a relative branch syllable. 
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Relative branch syllables are signed, nibble-granular values. 



if the relation is satisfied, the current Pt is updated by 
sign-extending the relative brancn operand value, multiplying it uy 
four, and adding it to the PC offset, effecting a branch that is 
relative to the start of the IP instruction. bee "Relative 
Branches" in the above section t i t | eu "uperana Types tor the 
FljRl RaN S-L anguape . " 

1.3. 2. 5.1 Two Comparand IP's 

The following operation cooes operate on either r e u 1 or 
integer data. both comparands must be of the same type. 



* I P = <name-a> <name-b> <relative offset> 

The real or integer values of "a" ana "b" are compareo a I ae- 
braically and, if they are egual, a relative Dranch is taken. 

Exceptions: 5 



* IF<> 

The real or inteaer values of "a" ana "o" are compared alae- 
braically and, if they are not egual, a relative branch is taken. 



Exceptions: 5 

The following operation codes operate on a particular oata 



type 
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* IF_a>b 

The real values "a" and "o" are compared algebraically ana, it a is 
greater than b, a relative branch is taken. 

Exceptions: 5 



* IF_a>=b 

The real values "a" and "b" are compared al begra i ca 1 1 y ana, it a is 
greater than or equal to o, a relative branch is taxen. 



Except ions: 



* I F i > J 

The integer values "i" and "j" are compared algebraically and, if i 
is greater than j, a relative branch is taken. 



Exceptions: 5 



* I F i > = j 

The integer values "i" and "j" are compared algebraically and, if i 
is greater than or eaual to j, a relative branch is taken. 



Fxcept ions 



5 
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1.3. 2. 5. 2 One Comparand IP's 

1 he following operation cooes operate on either real or 
integer data. Ihe second comparand is implicitly a true zero. 



* IP=U <name-a> <relative offset* 

The real or integer value of "a" is compared a 1 geo r a i c a I 1 y to a 
true zero and, if a equals zero, a relative branch is taken. 



Exceptions: 5 



* IF<>0 

The real or inteaer value "a" is compareo algebraically to zero 
and, if not equal, a relative branch is taken. 



Exceptions: 5 



* IF>=0 

The real or integer value "a" is compared algebraically to zero 
and, if not less than, a relative branch is taken. 



Exceptions 



5 
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* I F < = 0 

The real or integer value "a" is compared algebraically to 
and, if not greater, a relative branch is taken. 



Exceot i ons : S 



* I F> 0 

The real or integer value "a" is compared algebraically to 
and, if greater than, a relative Branch is taxen. 



Exceptions: 5 



* I F < d 

The real or integer value "a" is compared algebraically to 
and, if less than, a relative branch is taken. 



Fxceptions: 5 



z e ro 



■zero 



zero 



1.3. 2. 6 GuTO instructions 
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* G0_KEl <rel at i ve offset> 

The current Pl is updated by the relative branch syllaole. See 
"Kelative Branches" in the above section titled "Uperano 1'ypes for 
the FuRiRAN S-Language.J 



Exceptions: 5 



* Gu_QF|-SET <name-i> 

The integer value "i" replaces the offset Dortion of the current 
Pu, effecting an intra-procedure object branch. 



Exceptions: 5 

This instruction is used to implement ASSiGiMeci Gu's and 
branches beyond the range of a relative syllable. A FOkTkAu label 
is assigned to an INTEGER vanaole by moving an integral literal. 



* GO_COmP <addr-count> <name-se 1 ec t o r > <rel at i ve.of f set i> ... 
<re 1 at i ve_of f setn> 

This instruction is a computed bOTO. The first operand is a 
literal syllable denoting the numper of branch addresses specified. 
The second operand is tne name of an integer variable representing 
the selector value. une relative branch syllable follows for each 
branch address specified in the literal count operand. 



Except i ons 



5 
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PROCEDURE Gu_comP (addr_count tliterallo, 

name_sel ector:name, 
offset_list larray [addr_count j 

of r e 1 a t i v e_o f t s e t j ; 

IF u < eval l resolve! name_se 1 ec t o r ) ) < addr_count 
TrtEj'i 

PC := Pt + offset.. list! aval! reslovel, name.se 1 ec t o 
El St 

n ext_sequential_instruction; 

END I F ; 

END PkDCFuUHE GQ_comp» 



1.3. 2. 7 DU Loop Control 



* BCT < n a m e - i > < r e 1 a t i v e o f f s e t > 

The integer value of "i" is compared to zero and, if equal > the 
next sequential instruction is executed. Otherwise, i is decremen- 
ted by i, the result replacing i. Following this, a relative 
branch i s t aken . 



Exceptions: 5, b 

it may be assumed that i is decremented ana the oranch is 
taken every time. 
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PkOCEUUkE bet (name-i ;na»e» 

re I at i ve_o f f set jliterallfeJ? 

VARIAttLt ooerana_ptr :P0j.NiEN; 

END VARlAbLtS; 

operand_ptr := resolve! name-i )7 

IF operand_ptr3 = 0 

THEN next_sequent 1 a 1 i ns t ruct i on 

FlSl 

operand_pt raj ;= ope rand_Dt ro) - l; 

PC := PC + re I at i ve_of f set ; 

END if; 

END PHOpEuUKF bet; 



* R X L t < n a rn e - 1 > <name-inc> <name-limit> < r e ] a t i v e otfset> 



* BXH 



The integer values of "i" and "inc" are added, the result 
i. The result is compared al georai cal 1 y to integer value 
A relative branch is taken if the comparison yields less 
equal ( b X L E ) or greater than CbXrl). This instruction 
identically to the 3H0 bXLE and BxH instructions. 



rep l ac i no 
"limit", 
than or 
f unct i ons 



Exceptions 



5, 6 
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PROCEDURE BXLt (name-i :name, 

name-inc :naine, 

name- I i mi t : name * 

re 1 at i ve_o f f set sliterallb); 

resol vel narne-i )ai := resol vet name-i )cv + 
resolveC name-i nr ) a) ; 

It- resolveC name-i )5> < - resolveC name- i i m i t ) ai 
TnEiM PC := PC + relative.. offset 
ELSE next_sequent i a i_i nst ruct i on 

EnD ip; 

END PROCEDURE BXLt ; 



* Bxt-tl <name-i> cname- I i m i t> <re1ative offset> 

The value of INTEGER variable "i" is incrementea by 1* tne 
replacing i. If the result is less tnan of equal to iNIEGEh 
"limit"* the relative oranch to "relative offset" is 
Otherwise* the next sequential instruction is executed. 

This instruction functions identically to "bXLE" witn 
implicit increment of 1. 



Exceptions: 5* 6 



327 



result 
value 
t aKen . 



a an 



1.3. 2. 8 Miscellaneous Instructions 
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* INC < n a m e - i > 

The integer value "i" is incremented oy 1# the result replacing i. 

Exceptions: 5, o 



* DEC < n a m e - i > 

The integer value "i" is uecrementeci by 1/ the result replacing i. 

Exceptions: 5 f 6 



* ZtRU <name~a> 

Variable denoted oy name "a" is cleared to a true ?ero. isiote that 
this is an untyped operation. 

Except ions: 5 



* ONE <name- i > 

Integer value "i" is set to a 2's complement value of one. 



Exceptions: 



5 
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* ALLONtS < n a m e - i > 

Integer or logical variable "i" is set to a 2's complement negative 
one Cor the logical complement of zero/ i.e. all ones). 

Exceptions: 9 



* SET_PtSpOl\j.St <exception#> <scenarjo#> 

This instruction informs the FOKTRAiv machine of the desired excep- 
tion response. The first operand is a literal syllable represen- 
ting an exception numoer CO to V). The second operand is a literal 
representing a response scenario (0 to 2 in the case of the FuR I PaN 
machine). Refer to the section on exceptions for a discussion of 
possible exceptions and responses. 



Exceptions: A (illegal exception* ** or scenario#) 



* TtS I _tXCEPT J. ON <excePtion#> <narne-i> 

This instruction tests for the occurrence of an exceptional 
condition. The first operand is a literal oenotina an exception # . 
The second operand is a name denoting an iNIEuER variable. It the 
specified exception has occurred/ the exception record is cleared 
and an integer value 1 is stored replacing "i". Otherwise/ an 
integer value zero replaces "i". 



Exceptions: (illegal exception #)/ b 



1.3. 2. 9 CaLL/KF. (UkN Instructions 

Three types of call instructions are included in the FuRjPAN 
S-Language. The first two implement internal cails; the third 
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implements an external call. 
1.3. 2. 9.1 Internal CALL'S 



* PUSriJ <relative offset> 

The offset of the current p L is pushed onto the stack and a rela- 
tive branch is taken. Note that this instruction does not define a 
new stack frame. 



Exceptions: 5 



* PUPJ 

The 32-bits on the top of the stack (whether or not they represent 
a valuej are assumed to be a unsigned integer. The offset of the 
current PL is replaced dv this value. The POP J instruction imple- 
ments a return from subroutines entered by pLJdHJ . 



Exceptions: 5 

The above call is always intra-language. No entry headers are 
evaluated in such a call. 

The actual format of tne Pushed PC offset is model dependent, 
since this activation record is created and interpreted 

dynami cal 1 y . 



1.3. 2. 9. 2 Internal PORTRAn Calls 

Since PORTRAn is a static language, it is unnecessary to save 
the entire state of a general external call. Tne following in- 
structions implement an efficient intra- language, intra-proceoure 
obj ect call. 
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The stacx is usea to contain activation records (return 
address and old frame pointer J , actual argument pointers# and 
locals (if necessary). 



new 


SP->+- 

1 

1 

1 


locals 


new 


T •* 
1 


save_l i nk 


! 

i 

JL mm 


argument pointers 






T ** 
1 


old PC (return addr 


1 rl 


T "* 

I 

OL.si- 


old FP (dynamic Ink) 


O 1 Cl 


Or < t" 

i 




o J d 


I 

i 

i 

Fp->+- 


old f rarne 



I I 



link to state save 



stack _fra me lb RECORD 
state_save :REC0 rD 

old_FP :POINTER 7. to caller's frame 

old__PC :POiNTER /.to return point 

END RECORD # 

argument_.pt r s : mRRA Y [nl OF POJ.NFERS; 

save_l i nk : POiN FER FO s t at e_save # 

locals :31Tt i n i t i a l_f rame_s i ze 1# 



tNu RECORD; 
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* CALLS <parm-count > <name-a rg 1 > . . . <name-*aran> 

< re 1 at i ve_o f f se t > 



* CaLlA <pa rm-count > <name-arg1> ... <name-argn> <name-i> 

This instruction implements a full internal FuRCRaN call. since an 
internal procedure utilizes the same Static Data Ubject ana Stack 
Object as the callinq procedure, only trie Fp offset and PC offset 
need be saved and restored upon return. 

Since activation recoras are created and interpreted 
dynamically, state may be saved in any convient, mode 1 -dependent 
manner without impacting transportability of object proorams or 
data. 



The first operand is an unsigned literal specifying the number 
of actual parameters larqumerns) oeing passed. One name syllable 
follows in the I-stream for each actual parameter. The last 
argument name is followed by an entry header address specified as a 
relative offset (uALLR) or an absolute offset (CAlLa). 



ExceDt i ons 



5 
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PROCEDURE CALlR Carg^count ;literall6; 

name-arq : ARRAY la recount J uF 

names ; 

re I at i ve_of f set ;literali6); 

VARIABLE teiriP_rea: POiNfEK; 

end variables; 

temp_rey := Sp; 

PUSri ( FP J ; 
puSh(PC) ; 

% The PL is assumed to point to the NEXT oEBUeNIIaL 
% instruction. 

FUR i : 1 . . arg.count INCREASING REPEAT 
PUSHC resolve!. name_arati] )J 
EhiD FUR; 

FP := Sp; 

PUSHC temp_reg); 

SP := Fp t tPC + re 1 at i ve_o f f set ) . i n i t i a 1 _f rame_s 1 ze ; 
PL ;= (PC + rel at i ve_of f set j ,coae_poi nt er ; 

END PROCEDURE CALlR; 



The absolute call CCALlAj differs from relative call (LAlLR) 
in that the initial frame size and code pointer are locates rela- 
tive to PuPTR by evaluatina name-ir rather than relative to the 
current PL: 



SP 

PC 



Fp t tPUPiR + evalC resolve!, name-i i ) ) . i ni t i a 1 f rame_si ze; 

CPOPTR + eval C resolveC name-i);). code_po inter? 
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* RLT 



This instruction implements 
call. It reestablishes the 
cal la. 



a return from a full internal F u R I R A N 
state which was modified by callr or 



Except ions: 5 



PROCEDURE RtT 7. no operanas 

SP := Fp . sa ve_l i n k ; 2iold stack pointer is 

% link to state save area 

PC := FH . sa ve_l i n k3 . o 1 d_PC ? 

Fp := Fp . save_l i n kS .o 1 d_FP ; 

End procedure R t T; 



1.3.?. 9. 3 External Call Instruction 



* CALLX <pa rm-count > <name-argl> ... <name-aryn> <.name~en t ry > 



The first operand is an unsigned literal syllable indicating the 
number of actual parameters. One name follows in the I-stream for 
each actual Parameter. The last oPerana is a name which resolves 
to the address of a Gate pointer in some Procedure Ubject. 



Except i ons 



S 
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* RtTX 

A return from an external call is Performed. 

F.x cent ions: 5 

The external call is defined architecturally, bee the prouuct 
description for a discussion of its operation. 



1.3.?. ID Extended Instructions 

The following instructions are implemented in Doth single and 
douole precision versions (.REAL and DOUBLE PRtC iSlOI\i) . "real" 
means REAl» and "double Precision" means DOUBLE PkELToIuN. 



1.3.2.10.1 Transcendental Functions 



* S1H <name-b> <name-a> 

The trigonometric SIN of real value "t>" is calculated and replaces 
real variable "a" 



I 



Exceptions: 0, 1, 2 , 3, 5 



* CUS 

The trigonometric CDS of real value "b" is calculated and replaces 
real variable "a" 



I 



Exceptions 



0/ 1 r 2 r 3 » 5 
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* TAN 

The trigonometric TaN of real value "u" is calculated and replaces 
rea I variable "a" 

I Exceptions: 0, 1, 2, 3/ 5 



* A T A I'm 

Calculate the arctanaent of douole precision value "b" ana replace 
tne double precision variable "a" 

I Exceptions: 0, l, ?, 3, 5 



* A'fAiM? <name-x> <name-y> <name-a> 

Calculate the quotient of real value "y" diviaed by real value "x". 
If the calculation overflows/ reolace real variable "a" with the 
arctangent of "infinity". utnerwise/ calculate the arctangent of 
" y " / " x " and replace "a" 



I 



Exceptions: 0, 3, o 



* D5 1 u 

Calculate the sin of double precision value "o" and replace aouble 
Precision variable "a" 
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I 



Exceptions: 



0 f If ?. f i 1 *5 



* DCOS 

Calculate the cos of double precision value "b" and replace the 
double precision variable "a" 



I 



Exceptions: 



Of If 2 f 3 f 5 



* htan 

Calculate the tangent of ooub I e precision value "o" and replace the 
double precision variable "a" 

I Exceptions: 0 , If 2 , if S 



* DATAN 

Calculate the arctanaent of double precision value "b" and replace 
the douole precision variable "a" 



I 



Exceptions 



Of If 2 f if 5 
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* 0 A T A N ^ <name-x> <name-y> <name-a> 

Calculate the ouotient of douole precision values "y" divided by 
"x". If the calculation overflows, replace the douole orecision 
variable "a" with the arctan of "infinity". Otherwise, calculate 
the arctangent of "y"/"x" an d replace "a" 

I Fxceptions: 0 , 1 , 3, b 

1.3.2.10.^ hyperbolic Functions 

* SiNri 

Calculate the hyperoolic sin of real value "b", the result repla- 
cing real variable "a" 

I Fxceptions: 0, 1, 2, 3, 5 



* COSH 

Calculate the hyperoolic cos of real value "b", tne result repla- 
cing real variable "a" 

I Exceptions: 0, 1, ?, 3, 5 
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* TANH 

Calculate the hyperbolic tangent of real value "b", the result 
replacina real value "a" 

Exceptions: 0, 1, 2, o, 5 



* DtiliMH 

Calculate the hyperbolic sin of double precision value "o"r the 
result replacing oouble orec variable "a" 



Exceptions: 0, 1 , 2, J>, 5 



* DL03H 

Calculate the hyoeroolic cos of double precision value "u"* the 
result replacing double precision variable "a" 



Exceptions: 0, l , ?, $, 5 



* DTA^H 

Calculate the hyperbolic tangent of double precision value "b"r the 
result replacing double Precision variable "a" 



Except ions: 



0 , 1 / 2 r if 5 
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1.3.2.10.5 Uther Intrinsic Functions 



* FXP 

The real value ,l e* **<value of real variaole "b"> is Calculates and 
replaces real variable "a" 

Exceptions: 0, ir 2 t if 5 



* LUG 

The natural logarithm of real value "b" is calculated and replaces 
real variable "a" 



I 



Except ions: 



0/ If 2 f 5f S 



* E10 

Tne real value "10**<vaiue of real variable "b"> is calcuiatea and 
replaces real variable "a" 



I 



Exceptions 



Of if 2 f 5 f S 
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* LUG IP 

Tne common (.base 10) logarithm of real value "b" is calcuiateu and 
replaces real variaole "a" 

I Exceptions: Or i, 2, 5, S 



* Surf 

Calculate the square root of the real value of " b " the result 
replacing the real variable "a" 

I Exceptions: 0, l, 2, p, 5 



* DEXP 

Calculate the natural logarithm base raised to the double Precision 
value "o"r the result replacing the douole precision variable "a" 



I 



Exceptions: 



0 , 1 , 2 , 5 , 5 



* DLOu 

Calculate the natural logarithm of the double precision value "b% 
the result replacing the oouble precision variable "a" 



Except i ons : 



v 

/ 

L 



i 



0, l, 2 , o, S 
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* DtlU 

Calculate the common logarithm base tlO.j raised to tne aouble 
precision value "b " > the result replacing double precision variable 



I 



Fxceptions: 0, If 2 , 3 , 5 



* DLOblu 

Calculate the common log. of aouble Precision value "o" the result 
replacing douole prec variable "a" 

I Fxceptions: 0, if 2 , 3r 5 



* D30RT 

Calculate the square root of aouble Precision value "b"f the result 
replacing the douole precision variable "a" 



I 



Exceptions: 



0/ If 2 f 3 f 5 




